home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / PROCED5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  370 b   |  26 lines
  1. PROGRAM procedure_calling_a_procedure;
  2.  
  3. PROCEDURE one;
  4. BEGIN
  5.   WRITELN('This is procedure one');
  6. END;
  7.  
  8. PROCEDURE two;
  9. BEGIN
  10.   one;
  11.   WRITELN('This is procedure two');
  12. END;
  13.  
  14. PROCEDURE three;
  15. BEGIN
  16.   two;
  17.   WRITELN('This is procedure three');
  18. END;
  19.  
  20. BEGIN  (* main program *)
  21.   one;
  22.   WRITELN;
  23.   two;
  24.   WRITELN;
  25.   three;
  26. END. (* of main program *)